{ INFORMATICS.MCCME.RU
  Problem statement: http://informatics.mccme.ru/moodle/mod/statements/view3.php?chapterid=1537
  Verdict: Accepted
}
uses
	SysUtils, Math;
 
const    
	kk:longint=4;
	a:array[1..4] of longint=(1,2,5,10);
 
var
	n,i,j:longint;
	f:array[-10..110,0..4] of longint;
 
begin
reset(input,'input.txt');
rewrite(output,'output.txt');
fillchar(f,sizeof(f),0);
read(n);
for i:=0 to kk do
	f[0][i]:=1;
for i:=1 to n do
	for j:=1 to kk do
			f[i][j]:=f[i-a[j]][j]+f[i][j-1];
write(f[n][kk]);
end.